home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ Shortcut 1.xpl < prev    next >
Text File  |  2002-01-29  |  2KB  |  84 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Files&Folders\Shortcuts"
  5. "NAME"="Shortcut Arrow"
  6. "VERSION"="1.33"
  7. "LANGUAGE"="VBScript"
  8. "WARNING"="1"
  9. "TEXT 1"="Display arrow on shortcuts (*.lnk)"
  10. "TEXT 2"="Display arrow on DOS-shortcuts (*.pif)"
  11. "TEXT 3"="Display arrow on Internet shortcuts (*.url)"
  12. "DESCRIPTION 1"="To display the white arrow in the left corner of a shortcut, activate or deactivate the option your are interessted in."
  13. "DESCRIPTION 2"="Note #1: Deactivating the arrow for *.LNK files will also disable any shortcut key defined for your shortcuts!"
  14. "DESCRIPTION 3"="Note #2: Deactivating the arrow for *.URL files will also cause the Start -> Favorites menu to be empty."
  15. "DESCRIPTION 4"="Note #3: Please note that in some cases deactivating the arrow for *.LNK files might lead to duplicate items in the Explorer Context menu."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="Internet Shortcut support added by Pierre Szwarc [szwarc@usa.net]"
  20. "COMMENT 2"="Spelling errors detected by jhapgood@ix.netcom.com"
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24.  s=RegReadValue("HKCR\Lnkfile\IsShortcut")
  25.  if IsEmpty(s)=false then
  26.     SetUIElement 1,true
  27.  end if
  28.  
  29.  s=RegReadValue("HKCR\piffile\IsShortcut")
  30.  if IsEmpty(s)=false then
  31.     SetUIElement 2,true
  32.  end if
  33.  
  34.  s=RegReadValue("HKCR\InternetShortcut\IsShortcut")
  35.  if IsEmpty(s)=false then
  36.     SetUIElement 3,true
  37.  end if
  38.  
  39. End Sub
  40.  
  41. Sub Plugin_CheckData(ElementIndex)
  42. End Sub
  43.  
  44. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  45.  b=GetUIElement(1)
  46.  if b=true then
  47.     Call RegWriteValue("HKCR\Lnkfile\IsShortcut","",1)
  48.  else
  49.     s=RegReadValue("HKCR\Lnkfile\IsShortcut")
  50.     if IsEmpty(s)=false then
  51.        Call RegDeleteValue("HKCR\Lnkfile\IsShortcut")
  52.     end if
  53.  end if
  54.  
  55.  b=GetUIElement(2)
  56.  if b=true then
  57.     Call RegWriteValue("HKCR\piffile\IsShortcut","",1)
  58.  else
  59.     s=RegReadValue("HKCR\piffile\IsShortcut")
  60.     if IsEmpty(s)=false then
  61.        Call RegDeleteValue("HKCR\piffile\IsShortcut")
  62.     end if
  63.  end if
  64.  
  65.  b=GetUIElement(3)
  66.  if b=true then
  67.     Call RegWriteValue("HKCR\InternetShortcut\IsShortcut","",1)
  68.  else
  69.     s=RegReadValue("HKCR\InternetShortcut\IsShortcut")
  70.     if IsEmpty(s)=false then
  71.        Call RegDeleteValue("HKCR\InternetShortcut\IsShortcut")
  72.     end if
  73.  end if
  74.  
  75.  Restart
  76. End Sub
  77.  
  78.  
  79. Sub Plugin_Terminate 
  80. End Sub
  81.  
  82.  
  83.  
  84.